#!/usr/bin/perl

use warnings;
use strict;

use IO::File;

my $fh = IO::File->new( $ARGV[0], 'r' ) or die $!;

while (<$fh>) {
    chomp( my $line = $_ );
    if($line =~ /\S+..\S+ \S+ (\S+) \S+\]:\s+([^\s]+) ([^\s]+) (\d+) (\d+) (RECV|SCAN|SEND) (.*)$/) {
    }
    else {
        print "failure\n";
        print "$line\n";
    }
}

